home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util4 / 0utils.lha / 0Utils / BaseName.data < prev    next >
Text File  |  1995-08-30  |  951b  |  59 lines
  1.  
  2. #ifdef TPLTER
  3.  
  4. BaseName = {
  5.  
  6.     Version = "1.0";
  7.     Short = {{ Cut the suffix part from a filename }};
  8.     description = {{
  9.     Pathpart gets a filename and extracts its
  10.     name w/o trailing suffix.
  11.  
  12.     The resulting string is sent to STDOUT.
  13.  
  14.      RESULT
  15.     a filename w/o suffix
  16.     }};
  17.     Template = "FILE/A";
  18.     Arguments = {{
  19.     STRPTR file;
  20.     }};
  21.     Examples = {{
  22.     >basename a.b
  23.     a
  24.  
  25.     >basename a
  26.     a
  27.  
  28.     > suffix ram:t/jabba.bak
  29.     ram:t/jabba
  30.     }};
  31.     History = {{
  32.     19-08-95 b_noll (1.0) created .data file
  33.     }};
  34.     Body = {{
  35.         STRPTR p;
  36.         UBYTE bak = 0;;
  37.         p = argv->file;
  38.         retval = RETURN_WARN;
  39.         if (p && *p) {
  40.         while (*p) ++p;
  41.         --p;
  42.         while ((p != argv->file) && (*p != '.') && (*p != ':') && (*p != '/')) --p;
  43.         if (*p == '.') {
  44.             bak = '.';
  45.             *p = 0;
  46.         } /* if */
  47.         if (PutStr (argv->file) == 0) retval = RETURN_OK;
  48.         if (bak) {
  49.             *p = bak;
  50.         } /* if */
  51.         } /* if */
  52.         PutStr("\n");
  53.  
  54.     }};
  55. };
  56.  
  57. #endif
  58.  
  59.